Option Explicit
Sub D_Sample003()
    Dim myRng As Range
    Set myRng = Range("A1")				'Nxs
    'ǳƨ즹
    With myRng
        .ClearContents						'BȪM]R^
        .ClearFormats 					'榡M
        .ClearComments					'ѪM
        .Clear							'l
    End With
    Set myRng = Nothing 					'
End Sub

